home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / Misc / TextloaderTNG / Rexx / FW-Head2.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-09-02  |  615 b   |  39 lines
  1. /* Imports text from TLNG 2.0 to FinalWriter97  */
  2. /* FW97_Head2 V1.0 © 10.08.99 by Jochen Grus    */
  3.  
  4. OPTIONS RESULTS
  5. ADDRESS "FINALW.1"
  6.  
  7. Justify Center
  8. Fontsize 14
  9. IF (pos == 0) THEN
  10.    DO
  11.    fontpath = 'Normal'
  12.    END
  13. ELSE DO
  14.    pos = LASTPOS('_', fontpath)
  15.    fontpath = 'Normal'
  16.    END
  17. Style fontpath
  18. IF (pos == 0) THEN
  19.    DO
  20.    fontpath = 'Bold'
  21.    END
  22. ELSE DO
  23.    pos = LASTPOS('_', fontpath)
  24.    fontpath = 'Bold'
  25.    END
  26. Style fontpath
  27. IF (pos == 0) THEN
  28.    DO
  29.    fontpath = 'UnderLine'
  30.    END
  31. ELSE DO
  32.    pos = LASTPOS('_', fontpath)
  33.    fontpath = 'UnderLine'
  34.    END
  35. Style fontpath
  36. Type ' '
  37. Paste
  38. Fontsize 12
  39.